00100	PROCEDURE SUMMARY
00200	BEGIN "SUMMARY"
00300	
00400	INTEGER ARRAY NAME,CONFIRM,EXTEND,MAYBE,LERROR,HERROR,MISS[0:20];
00500	FOR I←0 STEP 1 UNTIL 20 DO NAME=0;
00600	
00700	
00710	OUT(CHAN6,"Feature"&TB&"Found"&TB&"CONFIRM"&TB&"Extend"&TB&
00711	  "Maybe"&TB&"Lerror"&TB&"Herror"&TB&"Miss"&CRLF);
00800	J←21; K1←K2←K3←K4←0;
00900	
01000	FOR I←0 STEP 1 UNTIL SEGTOT DO BEGIN  ⊂ Go through all segments;
01100	 WHILE J≤127 DO BEGIN  ⊂ Read hints;
01200	  IF LFILE[J+1]=O THE DONE;
01300	  IF LDB(POINT(12,LFILE[J+1],23))≤I THEN J←J+1 ELSE DONE; END;
01310	  Z←LDB(POINT(12,LFLAG[J],11);X←ZZZZZ[Z];
01400	IF LDB(POINT(12,LFILE[J],23))+LDB(POINT(12,LFILE[J],35))-1≤I
01500	 THEN FLAG←1 ELSE FLAG←0;
01600	FOR K1←0 STEP 1 UNTIL CON1-1 DO BEGIN
01700	 IF (Z←LDB(POINT)15,SEG1[K],17))>I THEN DONE;
01800	 IF Z+LDB(POINT(15,SEG1[K1],35))-1≥I THEN BEGIN
01900	    FOR L←0 STEP 1 UNTIL 20 DO BEGIN
02000	  IF NAME[L]=LEV1[K1] THEN FOUND[L]←FOUND[L]+1;
02100	 IF FLAG=0 THEN BEGIN
02200	IF LDB(POINT(12,LFILE[J],11))=NAME[L] THEN EXTEND[L]←EXTEND[L]+1;
02210	IF LDB(POINT(12,LFILE[J+1],11))=NAME[L] THEN EXTEND[L]←EXTEND[L]+1;
02255	****WE MUST LOOK THINGS UP IN FEATURE TABLE
02300	 IF LDB(POINT(15,SEG2[K2],17))+LDB(POINT(15,SEG2[K2],35-1<I THEN K2←K2+1;
02400	WHILE K3<CON3 DO
02500	 IF LDB(POINT(15,SEG3[K3],17))+LDB(POINT(15,SEG3[K3],35-1<I THEN K3←K3+1;
02600	WHILE K4<CON4 DO
02700	 IF LDB(POINT(15,SEG4[K4],17))+LDB(POINT(15,SEG4[K4],35-1<I THEN K4←K4+1;
02800	
02900	FOR L←0 STEP 1 UNTIL 20 DO BEGIN
03000	 IF EQU(NAME[L],LEV1[K1])∨EQU(NAME[L],LEV2[K2])∨EQU(NAME[L],LEV3[K3])
03100	   ∨EQU(NAME[L],LEV4[K4])∨EQU(NAME[L],LDB(POINT(12,LFILE[J],11)))
03200	 THEN BEGIN
03300	  IF NAME[L]=LEV2[K2] THEN FOUND[L]←FOUND[L]+1;
03400	  IF NAME[L]=LEV3[K3] THEN FOUND[L]←FOUND[L]+1;
03500	  IF NAME[L]=LEV4[K4] THEN FOUND[L]←FOUND[L]+1;
03600	
03700	  IF LFILE[J]=LEV1[K1] THEN CONFIRM[L]←CONFIRM[L]+1;
03800	  IF LFILE[J]=LEV2[K2] THEN CONFIRM[L]←CONFIRM[L]+1;
03900	  IF LFILE[J]=LEV3[K3] THEN CONFIRM[L]←CONFIRM[L]+1;
04000	  IF LFILE[J]=LEV4[K4] THEN CONFIRM[L]←CONFIRM[L]+1;
04100	END "SUMMARY";
04200	WHILE K2<CON2 DO
04300	 IF LDB(POINT(15,SEG2[K2],17))+LDB(POINT(15,SEG2[K2],35-1<I THEN K2←K2+1;